home *** CD-ROM | disk | FTP | other *** search
/ A Survey of Western Art / A Survey of Western Art.iso / mac / A Survey of Western Art / A Survey of Western Art / stack_-1.xml < prev    next >
Extensible Markup Language  |  1995-02-02  |  3KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>4112</cardID>
  8.     <listID>2215</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>384</height>
  15.     </cardSize>
  16.     <script>-- Electronic Library of Art - A Survey of Western Art-- Copyright ┬⌐ 1993 Ebook, Inc.on openStackhide menubarhide titlebarif item 4 of the screenRect > 400 thengo to stack "ela 640" in a new windowend iflock screengo to stack "ela intro" in a new window -- over 640 backdropclose stack "ela intro"close window "ela intro"lock screenglobal libraryNameput "A Survey of Western Art:Images:" into libraryName-- menubar-- just added for now - replace in final--reset menubar -- debug - clearout previous tests and start over-- ΓÇó set userLevel to 2-- delete hypercard menu itemsdelete menu "File"delete menu "Edit"delete menu "Go"delete menu "Font"delete menu "Style"delete menu "Tools"--delete menu "Object"-- contentsput "Contents" into menuNameput "Browse,Biographies,Help,Quit" into menuListcreateMenus menuName, menuList-- command-Q for quitset commandChar of menuItem 4 of menu "Contents" to "Q"-- browseput "Browse" into menuNameput "Title,Artist,Date,School,Medium,Object,Nationality" into menuListcreateMenus menuName, menuList-- fake title barcreate menu "ΓÇóΓÇóΓÇó A Survey of Western Art"go to card 1 of stack "Survey of Western Art" in a new windowunlock screenpicture "A Survey of Western Art:Images:title1.pic",file,rectend openStack-- ΓÇóon createMenus menuName, menuList-- menu namecreate menu menuName-- put "create" && menuName -- debugput "Survey of Western Art" into stackName-- menu items with messagesrepeat with itemNo = 1 to the number of items in menuList-- put itemNo && item itemNo of menuList -- debugput "pullDownMenu" && quote & item itemNo of menuList & quote ┬¼& "," && quote & stackName & quote into itemMsgif itemNo > 1 then-- add items to menuput item itemNo of menuList after menu menuName ┬¼with menuMsg itemMsgelse-- first item in menuput item itemNo of menuList into menu menuName ┬¼with menuMsg itemMsgend ifend repeatend createMenus-- ΓÇóon pullDownMenu cardName, StackNamelock screen-- pull down menu processingclearPicturesgo to card cardName of stack stackNameunlock screenend pullDownMenu-- ΓÇó</script>
  17.     <background id="3906" file="background_3906.xml" name="" />
  18.     <card id="4112" file="card_4112.xml" marked="false" name="" owner="3906" />
  19. </stack>
  20.